home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 23
/
Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso
/
Aminet
/
text
/
edit
/
GED_Hexedit.lha
/
GED_Hexedit
/
hex
/
deutsch
/
SaveAsBin.ged
< prev
next >
Wrap
Text File
|
1997-11-13
|
661b
|
2 lines
/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;'QUERY Name=File Var="Filename"';'QUERY NAME=ordinal var="nummer"';'QUERY Name=Doc Var="Filepfad"';'save ALL FORCE NAME=t:gedhex'||nummer;address 'COMMAND';'c:delete >NIL: "t:'||Filename||'"';'golded:tools/hex/hexbin h t:gedhex'||nummer||' "t:'||Filename||'"';'c:delete >NIL: "'||Filepfad||'"';'c:copy "t:'||Filename||'" "'||Filepfad||'"';address;'SET NAME=doc Value="'||Filepfad||'"';'UNLOCK';exit;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit